library(tidyverse)
[30m── [1mAttaching packages[22m ──────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──[39m
[30m[32m✔[30m [34mggplot2[30m 2.2.1 [32m✔[30m [34mpurrr [30m 0.2.4
[32m✔[30m [34mtibble [30m 1.4.2 [32m✔[30m [34mdplyr [30m 0.7.4
[32m✔[30m [34mtidyr [30m 0.8.0 [32m✔[30m [34mstringr[30m 1.3.0
[32m✔[30m [34mreadr [30m 1.1.1 [32m✔[30m [34mforcats[30m 0.3.0[39m
[30m── [1mConflicts[22m ─────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
[31m✖[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31m✖[30m [34mdplyr[30m::[32mlag()[30m masks [34mstats[30m::lag()[39m
library(here)
library(plotly)
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
dados <- read_csv(here("data/series_from_imdb.csv"),
progress = FALSE,
col_types = cols(.default = col_double(),
series_name = col_character(),
episode = col_character(),
url = col_character(),
season = col_character()))
dados_escolhidos <- dados %>%
filter(series_name %in% c("The Blacklist",
"House of Cards",
"Vikings"))
dados_escolhidos %>%
mutate('User Rating' = user_rating,'Season Ep' = season_ep,'Series' = series_name,'User Votes' = user_votes)
#mutate(user_votes = "Numero de votos dos usuarios",user_rating = "Voto episódio")
dados_escolhidos %>%
arrange(-user_rating) %>%
plot_ly(x = ~user_rating,
y = ~season_ep,
color = ~series_name,
size = ~user_votes,
text = ~paste("Pontuação Episódio:", user_rating,
"\nQuantidade de votos dos usuarios:",user_votes))
No trace type specified:
Based on info supplied, a 'scatter' trace seems appropriate.
Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
Setting the mode to markers
Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No trace type specified:
Based on info supplied, a 'scatter' trace seems appropriate.
Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
Setting the mode to markers
Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
NA
dados_escolhidos %>%
mutate('User Rating' = user_rating,
'Season Ep' = season_ep,
'Serie' = series_name,
'User Votes' = user_votes) %>%
arrange(-`User Rating`) %>%
ggplot(aes(x = `User Rating`,
y =`Season Ep`,
color = `Serie`,
size = `User Votes`)) +
geom_jitter(width = 1.3) +
labs(y = "Notas por episódio", x ="Episódio por temporada")

##ggplotly(j)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoaGVyZSkKbGlicmFyeShwbG90bHkpCmBgYAoKYGBge3J9CmRhZG9zIDwtIHJlYWRfY3N2KGhlcmUoImRhdGEvc2VyaWVzX2Zyb21faW1kYi5jc3YiKSwgCiAgICAgICAgICAgICAgICAgICAgcHJvZ3Jlc3MgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICBjb2xfdHlwZXMgPSBjb2xzKC5kZWZhdWx0ID0gY29sX2RvdWJsZSgpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlcmllc19uYW1lID0gY29sX2NoYXJhY3RlcigpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVwaXNvZGUgPSBjb2xfY2hhcmFjdGVyKCksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdXJsID0gY29sX2NoYXJhY3RlcigpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vhc29uID0gY29sX2NoYXJhY3RlcigpKSkKICAgIApgYGAKCgpgYGB7cn0KICAgIGRhZG9zX2VzY29saGlkb3MgPC0gZGFkb3MgJT4lIAogICAgZmlsdGVyKHNlcmllc19uYW1lICVpbiUgYygiVGhlIEJsYWNrbGlzdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJIb3VzZSBvZiBDYXJkcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJWaWtpbmdzIikpCiAgICAKYGBgCgpgYGB7cn0KZGFkb3NfZXNjb2xoaWRvcyAlPiUKICBtdXRhdGUoJ1VzZXIgUmF0aW5nJyA9IHVzZXJfcmF0aW5nLCdTZWFzb24gRXAnID0gc2Vhc29uX2VwLCdTZXJpZXMnID0gc2VyaWVzX25hbWUsJ1VzZXIgVm90ZXMnID0gdXNlcl92b3RlcykKCmBgYAoKYGBge3J9CmRhZG9zX2VzY29saGlkb3MgJT4lCiAgYXJyYW5nZSgtdXNlcl9yYXRpbmcpICU+JQogIHBsb3RfbHkoeCA9IH51c2VyX3JhdGluZywKICAgICAgICAgICAgIHkgPSB+c2Vhc29uX2VwLAogICAgICAgICAgICAgY29sb3IgPSB+c2VyaWVzX25hbWUsCiAgICAgICAgICAgICBzaXplID0gfnVzZXJfdm90ZXMsCiAgICAgICAgICAgIHRleHQgPSB+cGFzdGUoIlBvbnR1YcOnw6NvIEVwaXPDs2RpbzoiLCB1c2VyX3JhdGluZywKICAgICAgICAgICAgICAgICAgICAgICAgICAiXG5RdWFudGlkYWRlIGRlIHZvdG9zIGRvcyB1c3VhcmlvczoiLHVzZXJfdm90ZXMpKQogICAgICAgICAgICAKYGBgCgoKCmBgYHtyfQogIGRhZG9zX2VzY29saGlkb3MgJT4lCiAgbXV0YXRlKCdVc2VyIFJhdGluZycgPSB1c2VyX3JhdGluZywKICAgICAgICAgJ1NlYXNvbiBFcCcgPSBzZWFzb25fZXAsCiAgICAgICAgICdTZXJpZScgPSBzZXJpZXNfbmFtZSwKICAgICAgICAgJ1VzZXIgVm90ZXMnID0gdXNlcl92b3RlcykgJT4lCiAgYXJyYW5nZSgtYFVzZXIgUmF0aW5nYCkgJT4lCiAgZ2dwbG90KGFlcyh4ID0gYFVzZXIgUmF0aW5nYCwKICAgICAgICAgICAgIHkgPWBTZWFzb24gRXBgLAogICAgICAgICAgICAgY29sb3IgPSBgU2VyaWVgLAogICAgICAgICAgICAgc2l6ZSA9IGBVc2VyIFZvdGVzYCkpICsKICBnZW9tX2ppdHRlcih3aWR0aCA9IDEuMykgKwogIGxhYnMoeSA9ICJOb3RhcyBwb3IgZXBpc8OzZGlvIiwgeCA9IkVwaXPDs2RpbyBwb3IgdGVtcG9yYWRhIikKCiMjZ2dwbG90bHkoaikKYGBgCgo=